home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
TURB_VIS
/
PGC122
/
BBGUI.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-02-09
|
2KB
|
23 lines
(* This file was mangled by Mangler 1.14 (c) Copyright 1993 by Berend de Boer *)
{$F+,O+,S-,R-,Q-,I-} UNIT BBGUI ;INTERFACE CONST CMYES =12 ;CMNO =13 ;TYPE DELAYTYPE =PROCEDURE (MS :WORD );
FATALERRORTYPE =PROCEDURE (CONST S :STRING ;AHELPCTX :WORD );INFOBOXTYPE =PROCEDURE (CONST S :STRING ;
AHELPCTX :WORD );PAUSETYPE =PROCEDURE ;PRINTERRORTYPE =PROCEDURE (CONST S :STRING ;AHELPCTX :WORD );
PRINTWARNINGTYPE =PROCEDURE (CONST S :STRING ;AHELPCTX :WORD );USERANSWERTYPE =FUNCTION (CONST S :STRING ;
AHELPCTX :WORD ):WORD ;PROCEDURE BEEP ;PROCEDURE DOSDELAY (MS :WORD );PROCEDURE NOPAUSE ;PROCEDURE TEXTFATALERROR
(CONST S :STRING ;AHELPCTX :WORD );PROCEDURE TEXTINFOBOX (CONST S :STRING ;AHELPCTX :WORD );PROCEDURE TEXTPRINTERROR
(CONST S :STRING ;AHELPCTX :WORD );PROCEDURE TEXTPRINTWARNING (CONST S :STRING ;AHELPCTX :WORD );FUNCTION TEXTUSERANSWER
(CONST S :STRING ;AHELPCTX :WORD ):WORD ;CONST DELAY :DELAYTYPE =DOSDELAY ;FATALERROR :FATALERRORTYPE =TEXTFATALERROR ;
INFOBOX :INFOBOXTYPE =TEXTINFOBOX ;PAUSE :PAUSETYPE =NOPAUSE ;PRINTERROR :PRINTERRORTYPE =TEXTPRINTERROR ;
PRINTWARNING :PRINTWARNINGTYPE =TEXTPRINTWARNING ;USERANSWER :USERANSWERTYPE =TEXTUSERANSWER ;IMPLEMENTATION USES BBERROR
, BBFILE , BBUTIL ;PROCEDURE BEEP ;ASSEMBLER;ASM {} MOV DL , 07h {} MOV AH , 02h {} INT 21h {} END;PROCEDURE DOSDELAY
(MS:WORD);VAR O1011l1l0llI0:LONGINT;O1010I1I0l1O0:LONGINT;BEGIN O1011l1l0llI0 := MEML [ SEG0040 :$6C ] ;O1010I1I0l1O0 :=
O1011l1l0llI0 + ROUND ((MS / (1000 / 18.2 )));WHILE MEML [ SEG0040 :$6C ] <= O1010I1I0l1O0 DO PAUSE ;END ;
PROCEDURE NOPAUSE ;BEGIN END ;PROCEDURE TEXTFATALERROR (CONST S:STRING ;AHELPCTX:WORD);BEGIN PRINTERROR (S , AHELPCTX );
HALT (1 );END ;PROCEDURE TEXTINFOBOX (CONST S:STRING ;AHELPCTX:WORD);BEGIN WRITELN (S );END ;PROCEDURE TEXTPRINTERROR
(CONST S:STRING ;AHELPCTX:WORD);VAR O100llIl00IOl:WORD;BEGIN ASM {} MOV O100llIl00IOl, BP {} END;BEEP ;WRITELN (S );
LOGERROR ('Error: '+ S );IF @ DUMPSTACK <> NIL THEN DUMPSTACK (NIL , O100llIl00IOl );END ;PROCEDURE TEXTPRINTWARNING
(CONST S:STRING ;AHELPCTX:WORD);BEGIN BEEP ;WRITELN (S );LOGERROR ('Warning: '+ S );END ;FUNCTION TEXTUSERANSWER
(CONST S:STRING ;AHELPCTX:WORD):WORD ;VAR OOlIll10O1ll:STRING ;BEGIN WRITELN (S );REPEAT READLN (OOlIll10O1ll );UNTIL
(OOlIll10O1ll <> '')AND (UPCASE (OOlIll10O1ll [ 1 ] )IN [ 'Y', 'N'] );IF UPSTR (OOlIll10O1ll [ 1 ] )='Y'THEN
TEXTUSERANSWER := CMYES ELSE TEXTUSERANSWER := CMNO ;END ;END .